home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr18
/
1st_ins.zip
/
INSTALL.INS
< prev
next >
Wrap
Text File
|
1993-05-28
|
17KB
|
474 lines
SPARKWARE
ASSIGN(Default$,0,2)
SAVER 180
IF EXIST "1ST.DOC" THEN GOTO TOP
ASSIGN(Value$,0,"1ST-110B.ZIP")
CLS
GOSUB FILE_CHECK1
CLS
EXIT
:TOP
DISPLAY OFF
CLS
CURSOR OFF
BLINK OFF
FILLSCRN(1,1,25,80,32,31,112)
BOX(3,5,23,75,48,7,1,1)
CLEAR_BOXES
SCREEN(1,SAVE)
DIALOG_BOX(1,0,0,1," About ",4,51,112,112,1,116,15)
DIALOG_BOX(2,0,0,2," What's new ",9,51,112,112,1,116,15)
DIALOG_BOX(3,0,0,3," Install ",14,51,112,112,1,116,15)
DIALOG_BOX(4,0,27,4," Quit ",19,51,112,112,1,116,15)
QPRINT("Thank you for purchasing @READER@ 1.11",5,7,49,-1)
QPRINT("This program will install @READER@",10,7,-1)
QPRINT("onto your computer's hard disk. It")
QPRINT("will also update an older release of")
QPRINT("@READER@ to this new release version.")
QPRINT("Press the highlighted letter or",16,7,-1)
QPRINT("click your mouse on a button to")
QPRINT("make a selection.")
APRINT("Press the @X00@XF0 ESC @XFF key to quit.",21,7,-1)
DISPLAY ON
GET(Choice$,Default$)
ASSIGN(Default$,0,3)
CLEAR_BOXES
ON Choice$ GOTO ABOUT,NOTES,INSTALL,QUIT
:QUIT
CLS(7)
BOX(7,20,11,60,48,112,1,1)
QPRINT("Thank you for using @READER@",9,26,62,112)
IF NOT COMPARE(InstallOk$,True) THEN GOTO QUIT1
QPRINT("Type '1ST' to run @READER@",14,-1,-1)
QPRINT("Click on '1stTutor' to view the @READER@ tutorial",15,-1,-1)
:QUIT1
LOCATE 22,1
CURSOR ON
EXIT
:ABOUT
DISPLAY OFF
BOX(3,5,23,75,240,7,1,1)
QPRINT("@READER@ Install",5,-1,-1)
QPRINT("─────────────────")
QPRINT("Copyright 1993 by Mark Herring",9)
QPRINT("All Rights Reserved")
QPRINT("Sparkware",12)
QPRINT("Post Office Box 386")
QPRINT("Hendersonville, Tennessee 37077")
QPRINT("(615) 230-8822 (BBS)",16)
QPRINT("(615) 230-MAIL (Voice)")
QPRINT("Press any key to continue",21,0,241,15)
DISPLAY ON
PAUSE
GOTO TOP
:NOTES
LIST "WHATS.NEW"
GOTO TOP
:INSTALL
ASSIGN(Install_Type$,0,0)
DISPLAY OFF
BOX(3,5,23,75,48,7,1,1)
QPRINT("Installing @READER@",5,7,49,-1)
QPRINT("You may choose to install the complete",8,7,48,7)
APRINT("@READER@ system, print the manuals, or")
QPRINT("only install the add-in systems.")
QPRINT("Press the highlighted letter or",14,7,-1)
QPRINT("click your mouse on a button to")
QPRINT("make a selection.")
APRINT("Press the @X00@XF0 ESC @XFF key to quit.",21,7,-1)
DIALOG_BOX(1,0,0,1," Complete install ",4,50,112,112,1,116,15)
DIALOG_BOX(2,0,0,2," Print manuals ",9,50,112,112,1,116,15)
DIALOG_BOX(3,0,0,3," Add-ins ",14,50,112,112,1,116,15)
DIALOG_BOX(4,0,27,4," Quit ",19,50,112,112,1,116,15)
DISPLAY ON
GET(Choice$,4)
CLEAR_BOXES
ON Choice$ GOTO FULL_INSTALL,MANUALS,ADD-INS
GOTO TOP
:FULL_INSTALL
ASSIGN(Install_Type$,0,1)
GOSUB GET_TARGET
IF NOT EXIST Target$+"SYSTEMS.DAT" THEN GOTO NEW_INSTALL
ASSIGN(Update$,0,True)
ASSIGN(SetFile$,0,Target$+"1ST.SET")
SET_LOAD SetFile$
SWITCH(10,OFF)
SET_SAVE SetFile$
OPEN("B",1,SetFile$)
SEEK(1,&H159)
ASSIGN(Value$,-60,"QSZ portx %4 sz %3 /NOCLS /CURSOR_OFF /NS")
WRITE(1,Value$)
SEEK(1,&H195)
ASSIGN(Value$,-60,"QSZ portx %4 rz %3 /NOCLS /CURSOR_OFF /NS")
WRITE(1,Value$)
SEEK(1,&H500)
LITERAL ASSIGN(Value$,-50,"@API$(5)QZIP %1 %2 /NOCLS /CURSOR_OFF")
WRITE(1,Value$)
SEEK(1,&H700)
LITERAL ASSIGN(Value$,-50,"@API$(5)QUNZIP %1 %2 %3 /NOCLS /CURSOR_OFF")
WRITE(1,Value$)
CLOSE 1
SCREEN(1,RESTORE)
QPRINT("Installing updated system files",6,-1,-1)
UNPACK "SYSTEM.ZIP" TO Target$ "*.*"
UP_SCRIPT Target$+"SYSTEMS.DAT"
ASSIGN(InstallOk$,0,True)
SCREEN(1,RESTORE)
DISPLAY OFF
QPRINT("This new release of 1stReader changes many of the switch",10,12,-1)
QPRINT("definitions from previous releases. You *MUST* use the")
QPRINT("SETUP/SWITCHES command buttons from the opening screen")
QPRINT("in order to configure your system correctly.")
QPRINT("Press any key to continue...",21,-1,-1)
DISPLAY ON
BEEP
PAUSE
GOTO SCRIPTS
:NEW_INSTALL
QPRINT("Creating system subdirectory...",19,10,-1)
MKDIR Target$
QPRINT("Creating scripts subdirectory...")
MKDIR Scripts$
QPRINT("Creating packets subdirectory...")
MKDIR Packets$
SCREEN(1,RESTORE)
QPRINT("Installing main system files",6,-1,-1)
UNPACK "SYSTEM.ZIP" TO Target$ "*.*"
UNPACK "NEWSYS.ZIP" TO Target$ "*.*"
:SCRIPTS
SCREEN(1,RESTORE)
QPRINT("Installing script files",6,-1,-1)
UNPACK "SCRIPTS.ZIP" TO Scripts$ "*.*"
SCREEN(1,RESTORE)
QPRINT("Copying installation programs...",6,-1,-1)
QPRINT("1stReader keyfile",9,24,-1)
COPY("*.KEY",Target$)
QPRINT("Copying the installation programs...")
COPY("INSTALL.EXE",Target$)
COPY("*.INS",Target$)
QPRINT("Copying QUNZIP.EXE...")
COPY("QUNZIP.EXE",Target$)
QPRINT("Copying the WHATS.NEW file...")
COPY("WHATS.NEW",Target$)
IF COMPARE(Update$,True) THEN GOTO MANUALS
QPRINT("Copying the tutorial packet")
COPY("SPARKY.QTU",Packets$)
COPY("SYSTEMS.DAT",Target$)
GET_BBS
DISPLAY OFF
SCREEN(1,RESTORE)
QPRINT("Thank you for purchasing @READER@!",5,9,49,15)
QPRINT("Before you can run @READER@ we first",11,9,-1)
QPRINT("need to know a bit about your computer")
QPRINT("system. You need to tell us which")
QPRINT("serial port is used to connect your")
QPRINT("system to your modem.")
QPRINT("Please make your selection now...",21,9,62,15)
DIALOG_BOX(1,0,49,"3F8,4"," Port 1 ",4,51,112,112,0,116,15)
DIALOG_BOX(2,0,50,"2F8,3"," Port 2 ",8,51,112,112,0,116,15)
DIALOG_BOX(3,0,51,"3E8,4"," Port 3 ",12,51,112,112,0,116,15)
DIALOG_BOX(4,0,52,"2E8,3"," Port 4 ",16,51,112,112,0,116,15)
DIALOG_BOX(5,0,27,"0"," No modem ",20,51,112,112,0,116,15)
DISPLAY ON
GET(Serial$,1)
CLEAR_BOXES
IF COMPARE (Serial$,"0") THEN GOTO DISPLAY
DISPLAY OFF
SCREEN(1,RESTORE)
QPRINT("How fast is your modem?",5,9,49,15)
QPRINT("@READER@ needs to know the maximum",11,9,-1)
QPRINT("speed your modem supports. If you")
QPRINT("are unsure about just how fast your")
QPRINT("modem will transmit data over the")
QPRINT("telephone line we recommend you use")
QPRINT("'1200 baud' for your modem.")
QPRINT("A)",5,52,62,15)
QPRINT("B)",9,52,62,15)
QPRINT("C)",13,52,62,15)
QPRINT("D)",17,52,62,15)
QPRINT("E)",21,52,62,15)
QPRINT("Press (A-E) to select your modem speed...",21,9,62,15)
DIALOG_BOX(1,0,1065,"1200"," 1200 baud ",4,56,112,112,0,116,15)
DIALOG_BOX(2,0,1066,"2400"," 2400 baud ",8,56,112,112,0,116,15)
DIALOG_BOX(3,0,1067,"9600"," 9600 baud ",12,56,112,112,0,116,15)
DIALOG_BOX(4,0,1068,"19200"," 19,200 baud ",16,56,112,112,0,116,15)
DIALOG_BOX(5,0,1069,"38400"," 38,400 baud ",20,56,112,112,0,116,15)
DISPLAY ON
GET(Baud$,1)
CLEAR_BOXES
PICK (ModemInit$,"Select your modem type (use the arrow keys to view more modems): ","MODEMS.DAT",102,1,50,51,50,30,7)
DISPLAY OFF
SCREEN(1,RESTORE)
QPRINT("Which type of telephone service do you have?",5,9,49,15)
QPRINT("I have touch tone service",9,19,-1)
QPRINT("Touch tone service but I must dial '9' to 'get out'",13,19,-1)
QPRINT("I have rotary service",17,19,-1)
QPRINT("Rotary service but I must dial '9' to 'get out'",21,19,-1)
DIALOG_BOX(1,0,0,"ATDT"," 1 ",8,9,112,112,0,116,15)
DIALOG_BOX(2,0,0,"ATDT 9,"," 2 ",12,9,112,112,0,116,15)
DIALOG_BOX(3,0,0,"ATDP"," 3 ",16,9,112,112,0,116,15)
DIALOG_BOX(4,0,0,"ATDP 9,"," 4 ",20,9,112,112,0,116,15)
DISPLAY ON
GET(DialString$,1)
CLEAR_BOXES
:DISPLAY
DISPLAY OFF
SCREEN(1,RESTORE)
ASSIGN(Value$,0,1)
IF COLOR THEN ASSIGN(Value$,0,2)
QPRINT("Which type of monitor do you use?",5,10,49,15)
QPRINT("Please select your choice...",21,10,62,15)
DIALOG_BOX(1,0,77,"OFF"," I use a MONOCHROME display ",9,23,112,112,1,116,15)
DIALOG_BOX(2,0,67,"ON"," I use a COLOR display ",15,23,112,112,1,116,15)
DISPLAY ON
GET(Display$,Value$)
CLEAR_BOXES
DISPLAY OFF
SCREEN(1,RESTORE)
ASSIGN(Value$,0,2)
IF COMPARE(_Mouse$,-1) THEN ASSIGN(Value$,0,1)
QPRINT("Do you use a mouse?",5,10,49,15)
QPRINT("Please select your choice...",21,10,62,15)
DIALOG_BOX(1,0,89,"ON"," Yes, I use a mouse ",9,23,112,112,1,116,15)
DIALOG_BOX(2,0,78,"OFF"," No, I do not use a mouse ",15,23,112,112,1,116,15)
DISPLAY ON
GET(Mouse$,Value$)
CLEAR_BOXES
DISPLAY OFF
SCREEN(1,RESTORE)
QPRINT("Signatures",5,8,49,15)
QPRINT("Messages you leave with @READER@ can automatically have your name",10,8,-1)
QPRINT("placed on the bottom by the system. If you would like to have 1st")
QPRINT("do this for you, please enter your FIRST name only using upper and")
QPRINT("lower case letters.")
QPRINT("My first name is: ",16,8,-1)
DISPLAY ON
ASK(Signature$,16,26,40,15,112)
BOX(10,20,14,60,112,112,1,1,"Updating files...")
CHDIR Target$
SET_LOAD "1ST.SET"
SET(NewUser,"XX")
SET(SerialPort,Serial$)
SET(MaxBaudRate,Baud$)
SET(Init,ModemInit$)
SET(PreFix1,DialString$)
SET(PackDir,Target$+"PACKETS")
SET(RepDir,Target$+"PACKETS")
SET(DownLoads,Target$+"DOWNLOAD")
SET(Program,Target$+"PROGRAMS")
SET(WorkDir,Target$+"WORKDIR")
SET(Signature,Signature$)
SWITCH(4,Display$)
SWITCH(11,Mouse$)
SET_SAVE "1ST.SET"
ASSIGN(InstallOk$,0,True)
GETBBS
PAUSE 1
:MANUALS
GOSUB GET_TARGET
CHDIR Target$
DISPLAY OFF
SCREEN(1,RESTORE)
QPRINT("Please select which manuals you wish to print...",5,-1,-1)
DIALOG_BOX(1,0,66,1," Print the BEGINNER's manual ",8,20,112,112,1,116,15)
DIALOG_BOX(2,0,65,2," Print the ADVANCED user's guide ",13,20,112,112,1,116,15)
DIALOG_BOX(3,0,27,3," Quit ",18,20,112,112,1,116,15)
DISPLAY ON
GET (Value$,3)
CLEAR_BOXES
IF COMPARE(Value$,3) THEN GOTO MANUALS_DONE
ON Value$ GOTO NOVICE,ADVANCED
:NOVICE
ASSIGN(FileSpec$,0,"1ST.DOC")
ASSIGN(Value$,0,"Printing the beginner's manual now...")
GOTO PRINT_MANUAL
:ADVANCED
ASSIGN(FileSpec$,0,"ADVANCED.DOC")
ASSIGN(Value$,0,"Printing the advanced user's guide now...")
:PRINT_MANUAL
SCREEN(1,RESTORE)
BOX(10,10,14,70,112,112,1,1,Value$)
APRINT("Press the @X00@X(F0,0F) ESC @XFF key to quit",17,27,-1)
LPRINT_FILE FileSpec$
GOTO MANUALS
:MANUALS_DONE
CLEAR_BOXES
IF COMPARE(Install_Type$,0) THEN GOTO DONE
:ADD-INS
GOSUB GET_TARGET
CHDIR Target$
DISPLAY OFF
SCREEN(1,RESTORE)
QPRINT("Please select which 'add-ins' you wish to install...",1,-1,-1)
DIALOG_BOX(1,0,0,1," Multimedia Support ",4,24,112,112,1,116,15)
DIALOG_BOX(2,0,0,2," Graphics examples ",9,24,112,112,1,116,15)
DIALOG_BOX(3,0,0,3," Spell Checking ",14,24,112,112,1,116,15)
DIALOG_BOX(4,0,27,4," Quit ",19,24,112,112,1,116,15)
DISPLAY ON
GET (AddIn$,4)
CLEAR_BOXES
IF COMPARE(AddIn$,4) THEN GOTO DONE
ON AddIn$ GOTO MME,GRAPHICS,SPELL
:MME
ASSIGN(Temp$,0,"1ST-MME")
ASSIGN(Description$,0,"Multimedia support")
GOSUB FILE_CHECK
IF Compare(Flag$,False) THEN GOTO ADD-INS
GOTO ADD-INS_INSTALL
:GRAPHICS
ASSIGN(Temp$,0,"1ST-GRPH")
ASSIGN(Description$,0,"Graphics examples")
GOSUB FILE_CHECK
IF Compare(Flag$,False) THEN GOTO ADD-INS
GOTO ADD-INS_INSTALL
:SPELL
ASSIGN(Temp$,0,"1STSPELL")
ASSIGN(Description$,0,"Spell checking")
GOSUB FILE_CHECK
IF Compare(Flag$,False) THEN GOTO ADD-INS
:ADD-INS_INSTALL
SCREEN(1,RESTORE)
ASSIGN(FileSpec$,0,Temp$+".NEW")
ASSIGN(FileSpec$,0,"@INSDRIVE@:"+FileSpec$)
ASSIGN(Title$,0,Description$)
GOSUB SHOW
DISPLAY OFF
ASSIGN(Title$,0,"Do you wish to install "+Description$)
BOX(8,10,12,70,112,112,1,1,Title$)
DIALOG_BOX(1,0,0,1," Yes ",16,10,112,112,1,116,15)
DIALOG_BOX(2,0,27,2," No ",16,59,112,112,1,116,15)
DISPLAY ON
GET (Ask$,1)
CLEAR_BOXES
IF COMPARE(Ask$,2) THEN GOTO ADD-INS
SCREEN(1,RESTORE)
QPRINT(Description$,5,-1,-1)
ON AddIn$ GOTO INS_MME,INS_GRAPHICS,INS_SPELL
:INS_MME
MKDIR Target$+"MME"
UNPACK "@INSDRIVE@:1ST-MME.ZIP" TO Target$+"MME" "*.*"
SET_LOAD Target$+"1ST.SET"
SWITCH(10,"ON")
SET_SAVE Target$+"1ST.SET"
SCREEN(2,SAVE)
BOX(10,10,14,70,79,112,1,1,"Welcome to 1stReader MultiMedia!")
VOC_FILE "MME\$$INTRO.VOC"
SCREEN(2,RESTORE)
GOTO ADD-INS
:INS_GRAPHICS
MKDIR Target$+"GRAPHICS"
UNPACK "@INSDRIVE@:1ST-GRPH.ZIP" TO Target$+"GRAPHICS" "*.*"
GOTO ADD-INS
:INS_SPELL
UNPACK "@INSDRIVE@:1STSPELL.ZIP" TO Target$ "*.*"
GOTO ADD-INS
:DONE
ASSIGN(Default$,0,4)
GOTO TOP
:SHOW
IF NOT EXIST(FileSpec$) THEN RETURN
SCREEN(3,SAVE)
DISPLAY OFF
OPEN("I",1,FileSpec$)
FILLSCRN(1,1,25,80,32,31,112)
BOX(4,5,19,76,7,7,1,0)
QPRINT(Title$,2,-1,-1)
BLINK ON
DISPLAY ON
SET_WINDOW(5,7,18,74)
ATTRIBUTE(7)
:SHOW_LOOP
DISPLAY OFF
MREAD(1,14)
SCREEN(2,SAVE)
BOX(21,5,23,76,112,15,1,1,"Press any key to continue or [ESC] to quit")
DISPLAY ON
PAUSE
SCREEN(2,RESTORE)
IF LASTKEY=27 THEN GOTO SHOW_DONE
IF NOT EOF(1) THEN GOTO SHOW_LOOP
:SHOW_DONE
CLOSE 1
SET_WINDOW(1,1,25,80)
SCREEN(3,RESTORE)
RETURN
:GET_TARGET
IF NOT COMPARE(Target$,"") THEN RETURN
SCREEN(1,RESTORE)
QPRINT("Installing @READER@",5,10,49,15)
QPRINT("Before we can begin you will need to tell @READER@",10,10,-1)
QPRINT("where you wish to install the program on your computer.")
QPRINT("We recommend that you use the default location suggested")
QPRINT("below unless you wish to install the system elsewhere.")
QPRINT("Location to install @READER@:",16,10,63,15)
ASSIGN(Target$,0,"@DRIVE@:\1ST\")
ASK(Target$,16,41,30,15,112,UPPER)
IF LASTKEY=27 THEN RETURN TOP
IF COMPARE(Target$,"") THEN RETURN TOP
DCHECK Target$
ASSIGN(Scripts$,0,Target$+"SCRIPTS\")
ASSIGN(Packets$,0,Target$+"PACKETS\")
RETURN
:FILE_CHECK
ASSIGN(Flag$,0,True)
ASSIGN(Value$,0,Temp$+".ZIP")
IF EXIST Value$ THEN RETURN
:FILE_CHECK1
DISPLAY OFF
BOX(5,10,21,70,7,7,1,0)
QPRINT(Value$,7,-1,-1)
QPRINT("INSTALL could not locate this archive in the current",10,14,-1)
QPRINT("subdirectory. You might need to download this file")
QPRINT("from the same bulletin board system where the 1stReader")
QPRINT("archives are located.")
QPRINT("")
QPRINT("If you need help please ask your sysop to locate this")
QPRINT("file for you.")
QPRINT("Press any key to continue...",19,-1,-1)
DISPLAY ON
BEEP
PAUSE
ASSIGN(Flag$,0,False)
RETURN